home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / bin / .emacsrc next >
Text File  |  1995-07-24  |  7KB  |  244 lines
  1.  
  2. ;    EMACS.RC:    Standard MicroEMACS Startup program
  3. ;            for MicroEMACS 3.12 and above
  4. ;            (C)opyright 1987,92 by Daniel M Lawrence
  5. ;            Last Update: 12/28/92
  6. ;               Modified 06.06.93 Hops
  7. ;       Modded 08.12.94 for shift left, right and backtab ( modified xterm )
  8.  
  9. ;set $discmd FALSE
  10. write-message "[Setting up....]"
  11.  
  12. ;    If you hate clocks or position counters, comment these
  13. ;set $timeflag TRUE
  14. ;set $posflag TRUE
  15.  
  16. ; Allow partial match, autonaming of dup buffers, disallow autoend on completion
  17. ; 1 = allow partial match, 2 = allow auto name dup bfrs, 4 = autoend on comp.
  18. set $uconfig  3
  19.  
  20. ; set list of suffixes to exclude from file completion
  21. set $exclsfx ".o.a.z.Z"
  22.  
  23. ; disable safe save so get told when writing onto non writable files
  24. set $ssave "FALSE"
  25.  
  26. ;    Set Default Global modes
  27.  
  28. ;add-global-mode "cyan"
  29. ;add-global-mode "BLACK"
  30. ;add-mode "blue"
  31. ;add-mode "WHITE"
  32.  
  33. ; Scoterm
  34. add-global-mode "white"
  35. add-global-mode "BLACK"
  36. add-mode "white"
  37. add-mode "BLACK"
  38.  
  39.  
  40. set $discmd "FALSE"
  41. write-message "[Setting up....]"
  42.  
  43. ; setup fn keys
  44. ;set $palette "KEYMAP FNV ~~"    ; PgDwn
  45. ;set $palette "KEYMAP FNZ ~~"    ; PgUp  
  46. set $palette "KEYMAP FN< H"      ; Home
  47. set $palette "KEYMAP FN> ~~"    ; End
  48. set $palette "KEYMAP FN< ~~"    ; Home
  49. set $palette "KEYMAP FN> ~~"    ; End
  50. set $palette "KEYMAP FNC ~~"    ; Insert
  51. ; fnkey mappings  keyboard -> virtual 
  52. set $palette "KEYMAP FN1 ~~"   ; F1
  53. set $palette "KEYMAP FN2 ~~"   ; F2
  54. set $palette "KEYMAP FN2 ~~"   ; F3
  55. set $palette "KEYMAP FN4 ~~"   ; F4
  56. set $palette "KEYMAP FN5 ~~"   ; F5
  57. set $palette "KEYMAP FN6 ~~"   ; F6
  58. set $palette "KEYMAP FN7 ~~"   ; F7
  59. set $palette "KEYMAP FN8 ~~"   ; F8
  60. set $palette "KEYMAP FN9 ~~"   ; F9
  61. set $palette "KEYMAP FN0 ~~"    ; F10
  62. set $palette "KEYMAP FN^1 ~~"   ; F11
  63. set $palette "KEYMAP FN^2 ~~"   ; F12
  64. set $palette "KEYMAP FNb d"   ; Shift Left 
  65. set $palette "KEYMAP FNf c"   ; Shift Right 
  66. set $palette "KEYMAP FNI Z"     ; BackTab
  67.  
  68.  
  69. ; set up auto CMODE
  70. store-procedure set-default-mode
  71.     set %rctmp &sin $cfname "."
  72.     !if &equ %rctmp 0
  73.     !return
  74.     !endif
  75.     set %rctmp &mid $cfname &add %rctmp 1 5
  76.     !if &or &seq %rctmp "c" &seq %rctmp "h"
  77.         add-mode "cmode"
  78.     !endif
  79.     !if &or &seq %rctmp "cpp" &seq %rctmp "hpp"
  80.         add-mode "cmode"
  81.     !endif
  82.     !if &seq %rctmp "mss"
  83.     add-mode "wrap"
  84.     !endif
  85. !endm
  86. set $readhook set-default-mode
  87.  
  88. bind-to-key set-mark            ^@
  89. bind-to-key hunt-forward        ^\
  90. bind-to-key hunt-backward        ^_    
  91. bind-to-key delete-next-word         ^]    
  92.  
  93. ;bind-to-key next-page        FNZ    ; PgDwn
  94. ;bind-to-key previous-page    FNV    ; PgUp
  95.  
  96.     bind-to-key copy-line               ^X+
  97.     bind-to-key kill-line               ^X-
  98.     bind-to-key move-window-down        ^Z
  99.     bind-to-key open-above              ^O
  100.     bind-to-key move-window-up          M-Z
  101.     bind-to-key next-buffer        ^X^N
  102.     bind-to-key previous-buffer        ^X^P
  103.     bind-to-key suspend-emacs           ^XZ
  104.     bind-to-key yank            FNC    ; Ins Key 
  105. ;    bind-to-key i-shell        M-Z    ; Alt-Z
  106. ;   bind-to-key copy-line        M-C    ; Alt-c
  107.     bind-to-key copy-region             ^C      ; instead of M-C 
  108.  
  109. ; Fn key bindings 
  110.     bind-to-key help            FN1
  111. ;++ bind-to-key realign-line        FN2
  112. ;   bind-to-key begin-macro             FN7 ;++ code to end macro on begin-macro
  113.     bind-to-key begin-macro        FN6
  114.     bind-to-key end-macro        FN7
  115.     bind-to-key execute-macro        FN8
  116.     bind-to-key execute-named-command    FN0    ; F10
  117.     bind-to-key beginning-of-line       FN<
  118.     bind-to-key end-of-line             FN>
  119.     bind-to-key next-word               FNf     ; shift left 
  120.     bind-to-key previous-word           FNb     ; shift right
  121.  
  122.  
  123.  
  124. ; rebind insert-file
  125.     bind-to-key insert-file            ^XI
  126.     unbind-key                          ^X^I
  127.  
  128. ; Add undo key binding ( replace Upcase region )
  129.     bind-to-key undo                ^X^U
  130.  
  131.  
  132. 21 store-macro                    ; Toggle ins/Ovr Mode
  133.     set $discmd FALSE
  134.     !if &band  $cmode 32 
  135.         delete-mode OVER
  136.     !else
  137.         add-mode OVER
  138.     !endif
  139.     set $discmd TRUE
  140. !endm
  141. bind-to-key execute-macro-21     M-I    ; Alt-i  - Ins Toggle
  142. bind-to-key execute-macro-21     FNC    ; Insert key ( test ) 
  143.  
  144. 22 store-macro        /* insert date at point */
  145.      set %d $date     ; have $time but fmt is shitty - get YYMMDD
  146.      set %od &mid %d 5 2    ; DD  - YY 5 2
  147.      set %od &cat %od "-"
  148.      set %mm &mid %d 3 2    ; MM
  149.      set %oo &add × &sub %mm 1 3 1         ; oo = ((mm-1)* 3) + 1
  150.      set %mm &mid  "JanFebMarAprMayJunJulAugSepOctNovDec" %oo 3
  151.      set %od &cat %od %mm   ; Mmm
  152.      set %od &cat %od "-"
  153.      set %od &cat %od &mid %d 1 2  ; YY - YY 1 2
  154.  
  155.      insert-string %od
  156. ; DD.MM.YY
  157. ;     set %od &mid %d 5 2    ; DD  - YY 5 2
  158. ;     set %od &cat %od "."
  159. ;     set %od &cat %od &mid %d 3 2  ; MM
  160. ;     set %od &cat %od "."
  161. ;      set %od &cat %od &mid %d 1 2  ; YY - YY 1 2
  162. ; MM.DD.YY
  163. ;     set %od &mid %d 3 2    ; MM  - YY 1 2
  164. ;     set %od &cat %od "."
  165. ;     set %od &cat %od &mid %d 5 2  ; DD
  166. ;     set %od &cat %od "."
  167. ;     set %od &cat %od &mid %d 1 2  ; YY - YY 5 2
  168. !endm
  169. bind-to-key execute-macro-22    ^XD     ; insert date at point 
  170.  
  171. ;;++ Mod these to use autoload macro.... 
  172. ; load tags macro 
  173. 23 store-macro
  174. ;   set %f   &cat &env "HOME" "/bin/tags.uem"
  175.    set %f   "/usr/skunk/lib/tags.uem"
  176.    execute-file %f     ; rebinds ^XT
  177.    execute-macro-25    ; do tags cmd
  178. !endm
  179.   
  180. ; load srch data at point macro 
  181. 24 store-macro
  182. ;    set %f  &cat &env "HOME" "/bin/srch.uem"
  183.    set %f   "/usr/skunk/lib/srch.uem"
  184.     execute-file %f     ; rebinds ^XH
  185.     execute-macro-26    ; do srch cmd
  186. !endm
  187.  
  188. ; load srch data at point macro 
  189. 27 store-macro
  190. ;    set %f  &cat &env "HOME" "/bin/jfile.uem"
  191.     set %f   "/usr/skunk/lib/jfile.uem"
  192.     execute-file %f     ; rebinds macro 27 - ^XJ
  193. ;write-message "running macro now"
  194.     execute-macro-28    ; do file load
  195. !endm
  196.  
  197. bind-to-key execute-macro-22    ^XD     ; insert data at point 
  198. bind-to-key execute-macro-23    ^XT    ; load tags macro 
  199. bind-to-key execute-macro-24    ^XH    ; load srch_data_at_point macro 
  200. bind-to-key execute-macro-27    ^XJ    ; load filename under csr
  201.  
  202. ; Force looping at cli line getting input and execing till no more input
  203. store-procedure loop-cli
  204.     set %cline @"!"
  205.     !while   ¬  &sequal %cline ""
  206.         !force shell-command %cline
  207.         set %cline @"[End]"
  208.     !endwhile
  209. !endm
  210. macro-to-key loop-cli ^X!
  211.  
  212. store-procedure sccsid1
  213.     insert-string "%Z% %M% %I% %D% %Q%"
  214. !endm
  215. macro-to-key sccsid1 ^X"
  216.  
  217. store-procedure sccsid2
  218.     insert-string "#ifndef lint\n"
  219.     insert-string "char *sccsid[] = \"%Z% %M% v %I% %D%\";\n"
  220.     insert-string "#endif /* lint */\n"
  221. !endm
  222. macro-to-key sccsid2 ^X'
  223.  
  224. store-procedure mkwrt
  225.     delete-mode VIEW
  226.     set %cline &catstr "chmod +w " $cfname
  227.     shell-command %cline
  228. !endm
  229. macro-to-key mkwrt ^X*
  230.  
  231.  
  232. set $sterm ""     ; search termin char to nl
  233. set $isterm ""     ; isearch termin char to nl
  234. set $paralead ""    ; paralead to dbl nl
  235. ; set $wchars ""
  236.  
  237. 4    handle-tab
  238.  
  239. ;set $discmd TRUE
  240.  
  241. ;write-message "[EMACS is ready]"
  242.  
  243.  
  244.